home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 32 / PC Gamer IT CD 32 1-2.iso / ELINK / 14-DAY / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 170 < prev    next >
Encoding:
Text File  |  1997-02-20  |  4.3 KB  |  120 lines
  1. // -----
  2. // VDL170.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. //Registration screen
  8.  
  9. //License Dialog
  10.  
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  14.  
  15. //This section contains all localizable string constants for this VDL program. Be sure to 
  16. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  17. //You may also flatten multiline constants into a single line, if you prefer
  18.  
  19. #define kLit1 "Please Register this Copy of Claris Home Page:"
  20. #define kLit2 "Name: "
  21. #define kLit3 "Company: "
  22. #define kLit4 "Serial Number: "
  23.  
  24.  
  25. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  26. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  27. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  28.  
  29.  
  30.  
  31. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  32. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  33. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  34.  
  35. //This section contains integer constants that are used to format this VDL program.
  36. //These are localizable - they only need to be changed if the localized strings 
  37. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  38.  
  39.  
  40. //Width of the three labels "Name", "Company", "Serial Number"
  41. #define kLabelWidth     100
  42.  
  43. //Width of the edit text fields themselves.
  44. #define kEditTextWidth 250
  45.  
  46. //Margin to the left of the "Home Page" logotype
  47. #define kHomePageLeftMargin 84
  48.  
  49. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  50. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  51. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  52.  
  53. //No further localizable data past this point
  54.  
  55. /************************** END LOCALIZABLE DATA ***************************************************/
  56. /************************** END LOCALIZABLE DATA ***************************************************/
  57. /************************** END LOCALIZABLE DATA ***************************************************/
  58.  
  59. Define(TextFields)
  60.             VList()
  61.                 {
  62.                 StaticText(kLit1);
  63.  
  64.                 Spacer(Height = 10, Width = 0);
  65.                 
  66.                 #if Platform_Mac
  67.                 EditText(user_name, Label = kLit2, LabelWidth = kLabelWidth, LabelAlignment = Right,Width = kLabelWidth + kEditTextWidth);
  68.                 Spacer(Height = 5, Width = 0);
  69.                 EditText(user_company, Label = kLit3, LabelWidth = kLabelWidth, LabelAlignment = Right,Width = kLabelWidth + kEditTextWidth);
  70.                 Spacer(Height = 5, Width = 0);
  71.                 EditText(user_ID, Label = kLit4, LabelWidth = kLabelWidth, LabelAlignment = Right,Width = kLabelWidth + kEditTextWidth);
  72.                 #else
  73.                 HList()
  74.                     {
  75.                     Margin(0,3,0,0)
  76.                         StaticText(kLit2, Alignment = Right, Width = kLabelWidth);
  77.                         
  78.                     Margin(1,1,1,1, BackColor = Black)
  79.                         Margin(2,2,2,2, BackColor = White)
  80.                             EditText(user_name, NoFrame, Width = kEditTextWidth);
  81.                     }
  82.                 Spacer(Height = 3, Width = 0);
  83.                 HList()
  84.                     {
  85.                     Margin(0,3,0,0)
  86.                         StaticText(kLit3, Alignment = Right, Width = kLabelWidth);
  87.                         
  88.                     Margin(1,1,1,1, BackColor = Black)
  89.                         Margin(2,2,2,2, BackColor = White)
  90.                             EditText(user_company, NoFrame, Width = kEditTextWidth);
  91.                     }
  92.                 Spacer(Height = 3, Width = 0);
  93.                 HList()
  94.                     {
  95.                     Margin(0,3,0,0)
  96.                         StaticText(kLit4, Alignment = Right, Width = kLabelWidth);
  97.                         
  98.                     Margin(1,1,1,1, BackColor = Black)
  99.                         Margin(2,2,2,2, BackColor = White)
  100.                             EditText(user_ID, NoFrame, Width = kEditTextWidth);
  101.                     }
  102.                 #endif
  103.                 }
  104.  
  105.  
  106.  
  107. Margin(10, 10, 10, 10)
  108.     VList()
  109.         {
  110.         PICT(15000,DontMap);
  111.         Margin(kHomePageLeftMargin, 0, 0, 0)    
  112.             PICT(15001,DontMap);
  113.         Call(TextFields );
  114.  
  115.         Spacer(Height = 20, Width = 0);
  116.         StandardDialogButtonsH;
  117.         } //Main List
  118.         
  119.         
  120.